Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/hf.dir/00017_HyperText Handlers.ls

Text File | 1996-04-19 | 1.4 KB | 53 lines

global gHFHotLinks, gHFstate, gHFAthleteMode

on InitHotLinks
  if voidp(gHFHotLinks) then
    set gHFHotLinks to [:]
    repeat with vI = 1 to the number of lines in field "HotLinks"
      set vLink to item 1 of line vI of field "HotLinks"
      set vAth to item 2 of line vI of field "HotLinks"
      addProp(gHFHotLinks, vLink, vAth)
    end repeat
  end if
end

on CheckHotLink aCast, aWord
  if aWord = -1 then
    return
  end if
  if the foreColor of word aWord of field aCast <> 113 then
    put "Duckz"
    return
  end if
  set vFirstWord to aWord
  repeat while (vFirstWord > 1) and (the foreColor of word vFirstWord - 1 of field aCast = 113)
    set vFirstWord to vFirstWord - 1
    if word vFirstWord - 1 of field aCast contains "," then
      exit repeat
    end if
  end repeat
  set vCurrWord to vFirstWord
  set vHotText to EMPTY
  repeat while the foreColor of word vCurrWord of field aCast = 113
    set vHotText to vHotText & word vCurrWord of field aCast
    set vCurrWord to vCurrWord + 1
    if word vCurrWord - 1 of field aCast contains "," then
      exit repeat
    end if
  end repeat
  set vHotText to StripChars(vHotText, ",.'()-" & QUOTE)
  DoHotLink(vHotText)
end

on DoHotLink aText
  put "Duck1" && aText
  if not voidp(findPos(gHFHotLinks, aText)) then
    if not gHFAthleteMode then
      setAthleteMode(1)
    end if
    set gHFstate to "goto:" & getaProp(gHFHotLinks, aText)
    put "Duck2" && gHFstate
    athlete()
  end if
end